home *** CD-ROM | disk | FTP | other *** search
/ Exploring Aeronautics / NASA Exploring Aeronautics.iso / pc / source / index.dxr / 00002_how to fly.ls < prev    next >
Encoding:
Text File  |  1998-06-02  |  317 b   |  14 lines
  1. global gMain, gModule1, gSoundManager
  2.  
  3. on mouseUp
  4.   set baseSprite to 5
  5.   set pageNum to the clickOn - baseSprite
  6.   if not objectp(gModule1) then
  7.     alert("Index Error:" & " How to Fly ")
  8.   else
  9.     mPuppetSound(gSoundManager, "singleClick")
  10.     mGoToMovie(gMain, #fly)
  11.     mGoToPage(gModule1, pageNum)
  12.   end if
  13. end
  14.